home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pcscheme / geneva / pcscheme.exe / BIN / EDIT.FSL < prev    next >
Encoding:
Text File  |  1993-11-02  |  7.4 KB  |  133 lines
  1. #!fast-load 4.0 MINIBOOT (sources\s\edit.s)
  2. h006F 13F2
  3. lx14READ-EVAL-PRINT-LOOPlx04MOVElx09BEGINNINGlx04NEXTlx08PREVIOUSlx04FINDlx0FADD-PARENTHESESlx07FP-PARTlx0CELEMENT-PARTlx12PRINT-DEPTH-LENGTHlx06PARENTlx0FSMART-LIST-TAILlx08VERY-TOPlx0DINITIAL-STACKlx02FPlx05STACKlx07COMMANDlx05DONE?lx06BUFFERn
  4. x14READ-EVAL-PRINT-LOOP
  5. x04MOVE
  6. lx04STOPn
  7. x04STOP
  8. x09BEGINNING
  9. lx04STOPn
  10. x04NEXT
  11. lx04STOPlx05STOP1n
  12. x05STOP1
  13. x08PREVIOUS
  14. lx04STOPlx05STOP1n
  15. lx10GET-NEXT-ELEMENTlx0ATEMP-STACKlx07TEMP-FPlx06FOUND?lx03PFVn
  16. x10GET-NEXT-ELEMENT
  17. lx04STOPn
  18. x0B**UNBOUND**
  19. x03PFV
  20. x04FIND
  21. x0FADD-PARENTHESES
  22. x03CAR
  23. x07FP-PART
  24. x03CDR
  25. x0CELEMENT-PART
  26. lx02P1n
  27. x02P1
  28. x12PRINT-DEPTH-LENGTH
  29. x06PARENT
  30. x0FSMART-LIST-TAIL
  31. x04EDIT
  32. x05DONE?
  33. x02FP
  34. x08VERY-TOP
  35. x0DINITIAL-STACK
  36. x05STACK
  37. x04EXPT
  38. x0DSYMBOL->ASCII
  39. x06EDIT->
  40. x04READ
  41. x06BUFFER
  42. x07COMMAND
  43. x01*
  44. x01?
  45. x01P
  46. x02??
  47. x02PP
  48. x01N
  49. x02PR
  50. x01B
  51. x01T
  52. x01F
  53. x02IB
  54. x02IA
  55. x02SB
  56. x02SA
  57. x01D
  58. x02DP
  59. x02AP
  60. x01S
  61. x01R
  62. x02PS
  63. x04MAC?
  64. x03MAC
  65. x01Q
  66. x02#T
  67. x07WRITELN
  68. s0016  ?  Unknown command: 
  69. x08ED*MACRO
  70. x05ERROR
  71. s0015  ?  Error with macro
  72. x08LIST-REF
  73. s0010 is not a macro.
  74. lx01Plx01?lx02PPlx02??n
  75. x07EXPLODE
  76. c23
  77. s0021  ?  Cannot do a Move on an atom.
  78. x08CIRCULAR
  79. x10CANNOT-POP-STACK
  80. lx03...n
  81. s001A  ?  Already at top level.
  82. s0028  ?  There is no Next from this position
  83. s002C  ?  Can't execute Next command at top level
  84. s002C  ?  There is no Previous from this position
  85. s0028  ?  Can't execute Previous at top level
  86. x06FOUND?
  87. s0012  ?  Did not find 
  88. x0ATEMP-STACK
  89. x07TEMP-FP
  90. s0025  ?  Non-number or non-* to Replace: 
  91. s0038  ?  FP is a circular list, can't use negative numbers: 
  92. s0013  ?  There are not 
  93. s0009 elements
  94. x11**ATOM-RETURNED**
  95. s0010  ?  Can't find 
  96. s0027  ?  FP is an atom, can't insert after 
  97. s0008 element
  98. s0027  ?  FP is an atom, can't splice after 
  99. s0025  ?  Second argument must be a list: 
  100. s0030  ?  First argument must be a non-zero integer: 
  101. s0028  ?  FP is an atom, can't insert before 
  102. s0028  ?  FP is an atom, can't splice before 
  103. s0021  ?  FP is an atom, can't delete 
  104. s0024  ?  Non-number or non-* to Delete: 
  105. s0029  ?  FP is an atom, can't Add Parentheses
  106. s0015  ?  First argument, 
  107. s0028 is positioned to the right of the 2nd, 
  108. s002D  ?  Non-number or non-* to Add Parentheses: 
  109. s002E  ?  Non-number or non-* to Add Parentheses:  
  110. s0030  ?  Can't delete parentheses for this position 
  111. s001A  ?  Element is not a list
  112. x0F*ATOM-RETURNED*
  113. s0009 element.
  114. t▌<B<╣▌<║=<▌<=<<#▌     < != 
  115. <┌
  116. <α▌     
  117. < ▐=
  118. ▌ 
  119. <├    ▌
  120. <╟    =
  121. <s
  122.  =< ▌<=< <    =;o O o  !5!
  123. 4┤;"A AQ 0Θ  "4 @#4Q╨SP;;$┤%4&&Ç" &oo&;&@Ç"    &o&;;'@ëê"'@(dê#c'@ )e "
  124. 4┤; *e "
  125. ┤; +e "
  126. 4,5 ,e "  , 5 -e "5 .e "
  127. 5 /e "5 0e "!Y 1e "'C  5 2e "'C 'I !  3e "'C 'I !  4e "'C 'I !φ  5e "'C 'I !Ω
  128.  6e "    'C!ƒ  7e "    'C!á 8e "'C 'I  5  9e "'C 'I !
  129.  :e "'C 'I !î ;e "!c² <e "    'C!╘ =e "'C 'I !í >e "
  130. ??;'@0┌"' #╡&'@A 5 '@5@ Bt A@A 0. Cd"&' @D5 & q&;Ñ^"  0 ;C;#ÜÇ"$0╖ " Q E 5 ;@Ç"H@0ê " Q E 4    @  A0ä  O ;@0s  A 0f O;;&ê$-&@''Ç"'o'&A&0,ⁿ ╚;@ COB u;0@ " "@ ⁿxⁿ ⁿAx =O ,5@ F4 ;É" Bt ;;"1@ # 4 /\ "  :_ "
  131.  A  ═ ;?;'@Ggê"
  132. 4┤"    0ü;0 √0▐■ 5H4@ Id " %A0b  "  A 
  133.  !~· ; ;╡J@5Ç"5 (d "(0éªA;0 # V ` " 0L @   ;Q 0£AR0@;K5O !O  ! ;!A"!@!A!;L;` "M;Ç";`"I;@Ç" @AQ  0┐ O; @Q  0ñ A Q  0ï O;╡N@50Q"50F 4; !N ╡O@5╡P@50
  134. "    50 4  4 (d " 4(   4Q  4;Ç";AÇ"Q;d"
  135. \ê"#E
  136. A
  137. Q
  138.  ₧;╡Q@5╡R@50+"    50 ■4  4 (d " 4( 5  4  ^" 4   4Q   4;0δ■ ;@ !;f"?S;Ç"
  139. 54 ╘_"0á   QP;;╡T @5 0&"50²44 (d"
  140. 5 0╔A(d"( Q0ªⁿ@=!  Ç ê " +A Ç " @ O ; Æ " @ O ;AQ  ╦ ;@"@S!UVÇ"
  141. 4 40í■Sê"!  4 U ! V ;!Aê;!  44( d # ? Ç " 4 ª  ;0▓√4ª;4 ^ " 4  44Q  z  ;( d "  ª  ; ë # g ^ " 0    ;0ú² #.  Q  Ç"!6;  ╡  @W5 ╡@X 5 ╡@Y Z5 _ " [; Æ " ; Ç " [;AQ  π#=f" ?
  142. ;Ç";@0╨  A 0├ O;; Ç " (O; Æ " @ O ;AQ  ╒0  "
  143. 0╒² ╡ @\4 ;ï"ªAê;; Ç "  ╡ -@] ^5O Ç "  ╡ @_ ^5 ë "  Æ ê # 0à  # [0╦√ #A  Q   Ç"!N■p;!%■ ╡  @`5  ╡  @a5  Ç "  ╡ -@b ^5O Ç "  ╡ @c ^5 ë "  Æ ê # ó0á■ # ~0µ· #d^ "p!%ⁿ  Q■ Q  Ç"!F²p;!² ╡  @`5  ╡  @a5  (d " ª;ë#⌐Æ"    !é√0· #  Ç #  ╡ @d ^5 ^ "  A  !7√Q■ 4   Ç"êê"!Tⁿ ;!1ⁿ╡@e 5 @C Ç"╡@f5(d#ªAo;ë#╟^#O!y·( d#ü 0°°#a^#O!8·Q■ Q  Ç"!Y√O;!2√ ë# 0n°0d°#╓#╟`"!√`"!≡·_#╡@g h5zQ   Ç " !ƒ·   $^ $#  O   !∙ Q ■$ⁿ$zⁿ  ⁿ$Q$ (ⁿ(zⁿ$$ⁿO$$ $;!/·!'· ╡@i 5 ╡ @j5 ╡k @5 ╡l@5ë"Æê#╪0≈ # ┐Q 0┐≈  md"Ç#╡@d n5A Æ#b @ 0^·#I^#@p!ε≈Q■ⁿzⁿⁿ@p;0  ;!∙!·°0ε■ ;
  144. z
  145.